cat(format(Sys.time(),"%F %T %z"),file = "date.txt")
